home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / JUMBLE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.1 KB  |  73 lines
  1. 100  '*************************************************************************
  2. 110  '**                 DE-JUMBLE THE NEWSPAPER GAME                        **
  3. 120  '**                          DE-SCRAMBLER                               **
  4. 130  '**                                                                     **
  5. 140  '**           VERS 1.1                       SEPT 11, 1982              **
  6. 150  '*************************************************************************
  7. 160  '
  8. 170  SCREEN 2:KEY OFF:CLS:DEFINT A-Z
  9. 180  '
  10. 190  LOCATE 1,10:PRINT "DE-JUMBLE - THE NEWSPAPER PAPER GAME DE-SCRAMBLER"
  11. 200  LOCATE 4,8:PRINT "THIS PROGRAM WILL PRINT OUT ALL POSSIBLE COMBINATIONS"
  12. 210  LOCATE 5,14:PRINT "OF WORDS FROM UP TO A 6 LETTER 'JUMBLE'"
  13. 220  LOCATE 9,14:INPUT "PLEASE ENTER THE 'JUMBLED' WORD HERE -";A$:CLS
  14. 230  L=LEN(A$) : ON L GOTO 350,400,460,550,640,730
  15. 240  PRINT "I AM SORRY BUT I CAN ONLY HANDLE UP TO A 6 CHARACTER 'JUMBLE'"
  16. 250  GOTO 220
  17. 260  '
  18. 270  '************************************************************************
  19. 280  '
  20. 290  ' THIS PROGRAM CALCULATES ALL OF THE POSSIBLE COMBINATIONS OF THE INPUT
  21. 300  ' LETTERS. FROM THESE IT PRINTS ALL COMBINATIONS THAT ARE NOT REPEATS -
  22. 310  ' IE. KAS OR SAK FROM ASK, BUT NOT AAS OR SKK ETC.
  23. 320  '
  24. 330  '************************************************************************
  25. 340  '
  26. 350  SCREEN 1
  27. 360  PRINT "FOR THE JUMBLE OF ";A$;" THERE IS ONLY ONE ANSWER - "
  28. 370  LOCATE 4,1:FOR Z = 1 TO 1000:NEXT Z:PRINT A$:PRINT
  29. 380  LOCATE 7,1:INPUT "PRESS ENTER TO CONTINUE";Z$:CLS:GOTO 170
  30. 390  '
  31. 400  SCREEN 1
  32. 410  PRINT "FOR THE JUMBLE OF ";A$:PRINT " THERE ARE 2 ANSWERS - "
  33. 420  Y$(1) = MID$(A$,1,1) : Y$(2) = MID$(A$,2,1)
  34. 430  LOCATE 4,1:FOR Z = 1 TO 1000:NEXT Z:PRINT Y$(1);Y$(2);"  ";Y$(2);Y$(1)
  35. 440  LOCATE 7,1:INPUT "PRESS ENTER TO CONTINUE";Z$:CLS:GOTO 170
  36. 450  '
  37. 460  SCREEN 1
  38. 470  FOR X = 1 TO 3 : A$(X) = MID$(A$,X,1) : NEXT X
  39. 480  PRINT "FOR THE JUMBLE OF ";A$:PRINT "THERE ARE 6 ANSWERS - "
  40. 490  LOCATE 4,1:FOR L = 1 TO 3 : FOR M = 1 TO 3 : FOR N = 1 TO 3
  41. 500  IF (L=M) OR (L=N) OR (M=N) THEN 520
  42. 510  PRINT A$(L);A$(M);A$(N);"  ";
  43. 520  NEXT N,M,L
  44. 530  LOCATE 7,1:INPUT "PRESS ENTER TO CONTINUE";Z$:CLS:GOTO 170
  45. 540  '
  46. 550  SCREEN 1
  47. 560  FOR X = 1 TO 4 : A$(X) = MID$(A$,X,1) : NEXT X
  48. 570  PRINT "FOR THE JUMBLE OF ";A$:PRINT "THERE ARE 24 ANSWERS - "
  49. 580  LOCATE 4,1:FOR L=1 TO 4:FOR M=1 TO 4:FOR N=1 TO 4:FOR O=1 TO 4
  50. 590  IF (L=M) OR (L=N) OR (L=O) OR (M=N) OR (M=O) OR (N=O) THEN 610
  51. 600  PRINT A$(L);A$(M);A$(N);A$(O);"    ";
  52. 610  NEXT O,N,M,L
  53. 620  LOCATE 11,1:INPUT "PRESS ENTER TO CONTINUE";Z$:CLS:GOTO 170
  54. 630  '
  55. 640  SCREEN 1
  56. 650  FOR X = 1 TO 5 : A$(X) = MID$(A$,X,1) : NEXT X
  57. 660  PRINT "FOR THE JUMBLE OF ";A$:PRINT "THERE ARE 120 ANSWERS - "
  58. 670  LOCATE 4,1:FOR L=1 TO 5:FOR M=1 TO 5:FOR N=1 TO 5:FOR O=1 TO 5:FOR P=1 TO 5
  59. 680  IF (L=M) OR (L=N) OR (L=O) OR (L=P) OR (M=N) OR (M=O) OR (M=P) OR               (N=O) OR (N=P) OR (O=P) THEN 700
  60. 690  PRINT A$(L);A$(M);A$(N);A$(O);A$(P);"   ";
  61. 700  NEXT P,O,N,M :PRINT:PRINT:NEXT L
  62. 710  PRINT :INPUT "PRESS ENTER TO CONTINUE";Z$:CLS:GOTO 170
  63. 720  '
  64. 730  SCREEN 1
  65. 740  FOR X = 1 TO 6 : A$(X) = MID$(A$,X,1) : NEXT X
  66. 750  PRINT "FOR THE JUMBLE OF ";A$:PRINT "THERE ARE 720 ANSWERS - "
  67. 760  LOCATE 4,1:FOR L = 1 TO 6 : FOR M = 1 TO 6 : PRINT :PRINT :                     FOR N = 1 TO 6 :FOR O = 1 TO 6 : FOR P = 1 TO 6 : FOR Q = 1 TO 6
  68. 770  IF L=M OR L=N OR L=O OR L=P OR L=Q OR M=N OR M=O OR M=P OR M=Q OR                  N=O OR N=P OR N=Q OR O=P OR O=Q OR P=Q THEN 790
  69. 780  PRINT A$(L);A$(M);A$(N);A$(O);A$(P);A$(Q);"  ";
  70. 790  NEXT Q,P,O,N,M,L
  71. 800  INPUT "PRESS ENTER TO CONTINUE - ";Z$:CLS:GOTO 170
  72. 810  '
  73.